home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaw.d64 / zz top (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  100 lines
  1. 10 OPEN4,4:CMD4
  2. 20 PRINT#4:PRINT#4
  3. 30 FOR I=1TO6:PRINT#4,SPC(57)"<<<":NEXTI
  4. 40 PRINT#4,SPC(54)"*"SPC(2)"<<<"
  5. 50 PRINT#4,SPC(24)"<"SPC(29)"**"SPC(1)"<<<"
  6. 60 PRINT#4,SPC(21)"*"SPC(2)"<<"SPC(28)"***<<<"
  7. 70 PRINT#4,SPC(21)"**"SPC(1)"<<<"SPC(27)"***<<<"
  8. 80 PRINT#4,SPC(21)"***<<<<"SPC(26)"***<<<"
  9. 90 PRINT#4,SPC(21)"****<<<<"SPC(25)"***<<<"
  10. 100 PRINT#4,SPC(21)"*****<<<<"SPC(24)"***<<<"
  11. 110 PRINT#4,SPC(21)"******<<<<"SPC(23)"***<<<"
  12. 120 PRINT#4,SPC(21)"*******<<<<"SPC(22)"***<<<"
  13. 130 PRINT#4,SPC(21)"***<****<<<<"SPC(21)"***<<<"
  14. 140 PRINT#4,SPC(21)"***<<****<<<<"SPC(20)"***<<<"
  15. 150 PRINT#4,SPC(21)"***<<<****<<<<"SPC(19)"***<<<"
  16. 160 PRINT#4,SPC(21)"***<<< ****<<<<"SPC(18)"***<<<"
  17. 170 PRINT#4,SPC(21)"***<<<  ****<<<<"SPC(17)"***<<<"
  18. 180 PRINT#4,SPC(21)"***<<<   ****<<<<"SPC(16)"***<<<"
  19. 190 PRINT#4,SPC(21)"***<<<    ****<<<<"SPC(15)"***<<<"
  20. 200 PRINT#4,SPC(21)"***<<<     ****<<<<"SPC(14)"***<<<"
  21. 210 PRINT#4,SPC(21)"***<<<[160][160][160][160][160][160]****<<<<"SPC(13)"***<<<"
  22. 220 PRINT#4,SPC(21)"***<<<       ****<<<<"SPC(12)"***<<<"
  23. 230 PRINT#4,SPC(21)"***<<<"SPC(8)"****<<<<"SPC(11)"***<<<"
  24. 240 PRINT#4,SPC(21)"***<<<"SPC(9)"****<<<<"SPC(10)"***<<<"
  25. 250 PRINT#4,SPC(21)"***<<<"SPC(10)"****<<<<"SPC(9)"***<<<"
  26. 260 PRINT#4,SPC(21)"***<<<"SPC(11)"****<<<<"SPC(8)"***<<<"
  27. 270 PRINT#4,SPC(21)"***<<<"SPC(12)"****<<<<"SPC(7)"***<<<"
  28. 280 PRINT#4,SPC(21)"***<<<"SPC(13)"****<<<<"SPC(6)"***<<<"
  29. 290 PRINT#4,SPC(21)"***<<<"SPC(14)"****<<<<"SPC(5)"***<<<"
  30. 300 PRINT#4,SPC(21)"***<<<"SPC(15)"****<<<<"SPC(4)"***<<<"
  31. 310 PRINT#4,SPC(21)"***<<<"SPC(16)"****<<<<"SPC(3)"***<<<"
  32. 320 PRINT#4,SPC(21)"***<<<"SPC(2)"*"SPC(14)"****<<<<"SPC(2)"***<<<"
  33. 330 PRINT#4,SPC(21)"***<<<"SPC(2)"**"SPC(14)"****<<<<"SPC(1)"***<<<"
  34. 340 PRINT#4,SPC(21)"***<<<"SPC(2)"***"SPC(14)"****<<<<***<<<"
  35. 350 PRINT#4,SPC(21)"***<<<"SPC(3)"***"SPC(14)"****<<<<**<<<"
  36. 360 PRINT#4,SPC(21)"***<<<"SPC(4)"***"SPC(14)"****<<<<*<<<"
  37. 370 PRINT#4,SPC(21)"***<<<"SPC(5)"***"SPC(14)"****<<<<<<<"
  38. 380 PRINT#4,SPC(21)"***<<<"SPC(6)"***"SPC(7)"*"SPC(6)"****<<<<<<"
  39. 390 PRINT#4,SPC(21)"***<<<"SPC(7)"***"SPC(6)"**"SPC(6)"****<<<<<"
  40. 400 PRINT#4,SPC(21)"***<<<"SPC(8)"***"SPC(5)"***"SPC(6)"****<<<<"
  41. 410 PRINT#4,SPC(21)"***<<<"SPC(9)"***"SPC(4)"***"SPC(7)"****<<<"
  42. 420 PRINT#4,SPC(21)"***<<<"SPC(10)"***"SPC(3)"***"SPC(8)"*** <<"
  43. 430 PRINT#4,SPC(21)"***<<<"SPC(11)"***"SPC(2)"***"SPC(9)"**  <"
  44. 440 PRINT#4,SPC(21)"***<<<  *"SPC(9)"*** ***"SPC(10)"*"
  45. 450 PRINT#4,SPC(21)"***<<<  **"SPC(9)"******"
  46. 460 PRINT#4,SPC(21)"***<<<  ***"SPC(9)"*****"
  47. 470 PRINT#4,SPC(21)"***<<<  ****"SPC(9)"****"
  48. 480 PRINT#4,SPC(21)"***<<<  *****"SPC(9)"***"
  49. 490 PRINT#4,SPC(21)"***<<<  ******"SPC(8)"***"
  50. 500 PRINT#4,SPC(21)"***<<<  *** ***"SPC(7)"***"
  51. 510 PRINT#4,SPC(21)"***<<<[160][160]***[160][160]***"SPC(6)"***"
  52. 520 PRINT#4,SPC(21)"***<<<  ***   ***"SPC(5)"***"
  53. 530 PRINT#4,SPC(21)"***<<<  ***    ***"SPC(4)"***"
  54. 540 PRINT#4,SPC(21)"***<<<  ***[160][160][160][160][160]***"SPC(3)"***"
  55. 550 PRINT#4,SPC(21)"***<<<[160][160]***[160][160][160][160][160][160]***"SPC(3)"**"
  56. 560 PRINT#4,SPC(21)"***<<<  ***[160][160][160][160][160][160][160]***"SPC(3)"*"
  57. 570 PRINT#4,SPC(21)"***<<<[160][160]***"SPC(8)"***"
  58. 580 PRINT#4,SPC(21)"***<<<  ***"SPC(9)"***"
  59. 590 PRINT#4,SPC(21)"***<<<[160][160]***"SPC(10)"***"
  60. 600 PRINT#4,SPC(21)"***<<<[160][160]***"SPC(11)"***"
  61. 610 PRINT#4,SPC(21)"***<<<   ***"SPC(10)"***"
  62. 620 PRINT#4,SPC(21)"***<<<    ***"SPC(9)"***"
  63. 630 PRINT#4,SPC(21)"***<<<     ***"SPC(8)"***"
  64. 640 PRINT#4,SPC(21)"***<<<  *   ***"SPC(7)"***"
  65. 650 PRINT#4,SPC(21)"***<<<  **   ***"SPC(6)"***"
  66. 660 PRINT#4,SPC(21)"***<<<  ***   ***"SPC(5)"***"
  67. 670 PRINT#4,SPC(21)"***<<<   ***   ***"SPC(4)"***"
  68. 680 PRINT#4,SPC(21)"***<<<    ***   ***"SPC(3)"***"
  69. 690 PRINT#4,SPC(21)"***<<<     ***   ***  ***"
  70. 700 PRINT#4,SPC(21)"***<<<      ***   *** ***"
  71. 710 PRINT#4,SPC(21)"***<<<       ***   ******"
  72. 720 PRINT#4,SPC(21)"***<<<        ***   *****"
  73. 730 PRINT#4,SPC(21)"***<<<        ****   ****"
  74. 740 PRINT#4,SPC(21)"***<<<        *****   ***"
  75. 750 PRINT#4,SPC(21)"***<<<        ******   **"
  76. 760 PRINT#4,SPC(21)"***<<<        *** ***   *"
  77. 770 PRINT#4,SPC(21)"***<<<        ***  ***"
  78. 780 PRINT#4,SPC(21)"***<<<        ***   ***"
  79. 790 PRINT#4,SPC(21)"***<<<        ***[160][160][160][160]***"
  80. 800 PRINT#4,SPC(21)"***<<<        ***     ***"
  81. 810 PRINT#4,SPC(21)"***<<<        ***[160][160][160][160][160]***"
  82. 820 PRINT#4,SPC(21)"***<<<        ***[160][160][160][160][160]***"
  83. 830 PRINT#4,SPC(21)"***<<<[160][160][160][160][160][160][160][160]***[160][160][160][160][160]***"
  84. 840 PRINT#4,SPC(21)"***<<<        ***     ***"
  85. 850 PRINT#4,SPC(21)"***<<<        ***[160][160][160][160][160]***"
  86. 860 PRINT#4,SPC(21)"***<<<        ***[160][160][160][160][160]***"
  87. 870 PRINT#4,SPC(21)"***<<<         ***    ***"
  88. 880 PRINT#4,SPC(21)"***<<<          ***   ***"
  89. 890 PRINT#4,SPC(21)"***<<<           ***[160] ***"
  90. 900 PRINT#4,SPC(21)"***<<<            *** ***"
  91. 910 PRINT#4,SPC(21)"***<<<             ******"
  92. 920 PRINT#4,SPC(21)"***<<<              *****"
  93. 930 PRINT#4,SPC(21)"***<<<               ****"
  94. 940 PRINT#4,SPC(21)"***<<<                ***"
  95. 950 PRINT#4,SPC(21)"***<<<                 **"
  96. 960 PRINT#4,SPC(21)"***<<<                  *"
  97. 970 FOR I=1TO17:PRINT#4,SPC(21)"***<<<":NEXTI
  98. 980 CLOSE 4,4
  99. 990 END
  100.